home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / D51_NARexx / OCD.dopus5 < prev    next >
Text File  |  1995-08-18  |  1KB  |  34 lines
  1. /* OCD for Directory Opus 5
  2.    By Leo Davidson ("Nudel", Pot-Noodle/Gods'Gift Utilities)
  3.  
  4. $VER: OCD.dopus5 1.2 (18.8.95)
  5.  
  6.    Note: Please don't confuse this with the CDO script!
  7.    Note: "CDOpus" is an assembler version of this script, with extra features.
  8.  
  9.    When run from a Shell, will put the DOpus5 screen to the front and
  10.    open a new lister with the same path as the Shell.
  11.  
  12.    To set up the command "OCD", add the following to your s:shell-startup:
  13. -------------------------------------------------------------------------------
  14. Alias OCD "rx DOpus5:ARexx/ocd.dopus5"
  15. -------------------------------------------------------------------------------
  16.  
  17.    v1.00 -> v1.01 - Now makes sure the DOPUS.1 port exists. (Ahem)
  18.     v1.01 -> v1.2 - Now uses Show() instead of ShowList(). (Thanks Stoebi)
  19.                     Style Guide compliant version numbering and $VER string.
  20.  
  21. */
  22. signal on error
  23.  
  24. If Show("P","DOPUS.1") Then
  25.     address "DOPUS.1"        /* Assumes there's only one copy. */
  26. Else Do
  27.     Say "DOPUS.1 port not found!"
  28.     Exit                /* If no DOPUS.1 port, exit */
  29.     End
  30. dopus front
  31. lister new pragma("d")
  32. Error:
  33. EXIT
  34.